home *** CD-ROM | disk | FTP | other *** search
/ Enter 2004 January / EnterCD 01_2004.iso / Multimedia / Advanced Effect Maker Freeware Edition 1.0 / aemf10.exe / {app} / templates / puzzlegame.swf / scripts / frame_3 / DoAction.as
Encoding:
Text File  |  2003-05-25  |  1.4 KB  |  75 lines

  1. i = 1;
  2. while(numCells >= i)
  3. {
  4.    set("cell" + i,i);
  5.    i++;
  6. }
  7. i = 1;
  8. while(numCells >= i)
  9. {
  10.    set("random" + i,random(1000));
  11.    i++;
  12. }
  13. lo = 1;
  14. up = numcells;
  15. while(lo < up)
  16. {
  17.    i = lo;
  18.    j = lo;
  19.    while(i < up)
  20.    {
  21.       if(eval("random" + (i + 1)) < eval("random" + i))
  22.       {
  23.          temp = eval("random" + i);
  24.          set("random" + i,eval("random" + (i + 1)));
  25.          set("random" + (i + 1),temp);
  26.          temp = eval("cell" + i);
  27.          set("cell" + i,eval("cell" + (i + 1)));
  28.          set("cell" + (i + 1),temp);
  29.          j = i;
  30.       }
  31.       i++;
  32.    }
  33.    up = j;
  34.    i = up;
  35.    while(lo < i)
  36.    {
  37.       if(eval("random" + i) < eval("random" + (i - 1)))
  38.       {
  39.          temp = eval("random" + i);
  40.          set("random" + i,eval("random" + (i - 1)));
  41.          set("random" + (i - 1),temp);
  42.          temp = eval("cell" + i);
  43.          set("cell" + i,eval("cell" + (i - 1)));
  44.          set("cell" + (i - 1),temp);
  45.          j = i;
  46.       }
  47.       i--;
  48.    }
  49.    lo = j;
  50. }
  51. i = 1;
  52. r = 1;
  53. c = 1;
  54. while(numCells >= i)
  55. {
  56.    piece = eval("cell" + i);
  57.    if(piece == numcells)
  58.    {
  59.       empty = i;
  60.    }
  61.    else
  62.    {
  63.       set("pos" + piece,i);
  64.       setProperty("p" + piece, _X, eval("x" + c));
  65.       setProperty("p" + piece, _Y, eval("y" + r));
  66.    }
  67.    c++;
  68.    if(numCols < c)
  69.    {
  70.       c = 1;
  71.       r++;
  72.    }
  73.    i++;
  74. }
  75.